home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / dirs.swg / 0025_DOS Files Listing.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  903 b   |  43 lines
  1. program ListFiles(input,output);
  2.   uses Dos,
  3.        FileSpec;
  4.  
  5. var
  6.   FS: TWildCard;
  7.  
  8. procedure WriteName(Name: string; Attr: word);
  9. var T: String;
  10. begin
  11.   if Attr=Directory
  12.     then Name := '['+Name+']';
  13.   Name := Name + '                ';     (* 16 spaces *)
  14.   Write( Copy(Name,1,16) );
  15. end;
  16.  
  17. procedure ListFiles;
  18. var
  19.   Search:  SearchRec;
  20. begin
  21.     FindFirst('*.*',AnyFile,Search);
  22.     if DosError<>18 then begin
  23.        if FS.FitSpec(Search.Name)
  24.              then WriteName(Search.Name,Search.Attr);
  25.          repeat
  26.            FindNext(Search);
  27.            if DosError<>18
  28.              then if FS.FitSpec(Search.Name)
  29.                   then WriteName(Search.Name,Search.Attr);
  30.          until DosError = 18;
  31.        end;
  32. end;
  33.  
  34. var
  35.   i:      Byte;
  36. begin
  37.   FS.Init;
  38.   for i := 1 to ParamCount do FS.AddSpec(ParamStr(i));
  39.   ListFiles;
  40.   FS.Done;
  41.   WriteLn;
  42. end.
  43.